(query-replace-read-args): Immediate error if read-only.

diff --git a/lisp/replace.el b/lisp/replace.el
index 28e0d06f7200261a187d768154ae7b0604f1964a..474e6158e872ba26b2476fe2a49c4330ab0f0554 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -63,6 +63,7 @@ strings or patterns."
   :version "21.3")
 
 (defun query-replace-read-args (string regexp-flag)
+  (barf-if-buffer-read-only)
   (let (from to)
     (if query-replace-interactive
        (setq from (car (if regexp-flag regexp-search-ring search-ring)))